home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / CallbackTest2.z / CallbackTest2
Encoding:
Text File  |  2003-11-18  |  3.4 KB  |  113 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # CallbackTest2
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26.  
  27. ##########################################################################
  28. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  29. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  30. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  31. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  32. #      Novell, Inc.
  33. ##########################################################################
  34.  
  35.  
  36. #
  37. # This sample shell script demonstrates how widget callbacks can be
  38. # added and removed.  It adds callbacks both using XtAddCallback and
  39. # by specifying a callback as a resource, when the test pushbutton
  40. # is created.
  41. #
  42.  
  43. # The activate callback which can be dynamically added and removed
  44. ActivateCallback1()
  45. {
  46.    echo "activateCallback1 invoked"
  47. }
  48.  
  49. # The activate callback which is added when the widget was created
  50. ActivateCallback2()
  51. {
  52.    echo "activateCallback2 invoked"
  53. }
  54.  
  55. # Pushbutton Callback: Adds an activate callback to the test pushbutton
  56. AddCallback1()
  57. {
  58.    XtAddCallback $TESTPB activateCallback ActivateCallback1
  59.    XtGetValues $TESTPB activateCallback:AC
  60.    echo "Callback list = "$AC
  61. }
  62.  
  63. # Pushbutton Callback: Removes an activate callback from the test pushbutton
  64. DeleteCallback1()
  65. {
  66.    XtRemoveCallback $TESTPB activateCallback ActivateCallback1
  67.    XtGetValues $TESTPB activateCallback:AC2
  68.    echo "Callback list = "$AC2
  69. }
  70.  
  71. ######################### Create the Main UI #################################
  72.  
  73. XtInitialize TOPLEVEL callbackTest CallbackTest "$0" "$@"
  74.  
  75. XtCreateManagedWidget FORM form XmForm $TOPLEVEL
  76.  
  77. XtCreateManagedWidget PB1 pb XmPushButton $FORM \
  78.     labelString:"Add Callback1" \
  79.     topAttachment:ATTACH_FORM \
  80.     topOffset:10 \
  81.     leftAttachment:ATTACH_POSITION \
  82.     leftPosition:10 \
  83.     rightAttachment:ATTACH_POSITION \
  84.     rightPosition:40 \
  85.     activateCallback:AddCallback1
  86.  
  87. XtCreateManagedWidget PB2 pb2 XmPushButton $FORM \
  88.     labelString:"Delete Callback1" \
  89.     topAttachment:ATTACH_FORM \
  90.     topOffset:10 \
  91.     leftAttachment:ATTACH_POSITION \
  92.     leftPosition:60 \
  93.     rightAttachment:ATTACH_POSITION \
  94.     rightPosition:90 \
  95.     activateCallback:DeleteCallback1
  96.  
  97. XtCreateManagedWidget TESTPB testpb XmPushButton $FORM \
  98.     labelString:"Test Button" \
  99.     topAttachment:ATTACH_WIDGET \
  100.     topWidget:$PB2 \
  101.     topOffset:20 \
  102.     leftAttachment:ATTACH_POSITION \
  103.     leftPosition:20 \
  104.     rightAttachment:ATTACH_POSITION \
  105.     rightPosition:80 \
  106.     bottomAttachment:ATTACH_FORM \
  107.     bottomOffset:10 \
  108.     activateCallback:ActivateCallback2
  109.  
  110. XtRealizeWidget $TOPLEVEL
  111.  
  112. XtMainLoop
  113.